home *** CD-ROM | disk | FTP | other *** search
/ PD Collection CD 1 / PD Collection CD 1.iso / textual / tex / files / !tex / TeXsource / commontex / c / char < prev    next >
Encoding:
Text File  |  1988-04-18  |  2.3 KB  |  130 lines
  1. /*
  2.  *    Copyright 1986, 1987 Pat Joseph Monardo. All rights reserved.
  3.  */
  4.  
  5.  
  6. /*
  7.  *        char.c
  8.  */
  9.  
  10. #include    "tex.h"
  11. #include    "char.h"
  12.  
  13.  
  14. ascii    xord[128];
  15. char    xchr[128];
  16.  
  17. init_char ()
  18. {
  19.     int        i;
  20.  
  21.     xchr[040] = ' ';
  22.     xchr[041] = '!';
  23.     xchr[042] = '"';
  24.     xchr[043] = '#';
  25.     xchr[044] = '$';
  26.     xchr[045] = '%';
  27.     xchr[046] = '&';
  28.     xchr[047] = '\'';
  29.     xchr[050] = '(';
  30.     xchr[051] = ')';
  31.     xchr[052] = '*';
  32.     xchr[053] = '+';
  33.     xchr[054] = ',';
  34.     xchr[055] = '-';
  35.     xchr[056] = '.';
  36.     xchr[057] = '/';
  37.     xchr[060] = '0';
  38.     xchr[061] = '1';
  39.     xchr[062] = '2';
  40.     xchr[063] = '3';
  41.     xchr[064] = '4';
  42.     xchr[065] = '5';
  43.     xchr[066] = '6';
  44.     xchr[067] = '7';
  45.     xchr[070] = '8';
  46.     xchr[071] = '9';
  47.     xchr[072] = ':';
  48.     xchr[073] = ';';
  49.     xchr[074] = '<';
  50.     xchr[075] = '=';
  51.     xchr[076] = '>';
  52.     xchr[077] = '?';
  53.     xchr[0100] = '@';
  54.     xchr[0101] = 'A';
  55.     xchr[0102] = 'B';
  56.     xchr[0103] = 'C';
  57.     xchr[0104] = 'D';
  58.     xchr[0105] = 'E';
  59.     xchr[0106] = 'F';
  60.     xchr[0107] = 'G';
  61.     xchr[0110] = 'H';
  62.     xchr[0111] = 'I';
  63.     xchr[0112] = 'J';
  64.     xchr[0113] = 'K';
  65.     xchr[0114] = 'L';
  66.     xchr[0115] = 'M';
  67.     xchr[0116] = 'N';
  68.     xchr[0117] = 'O';
  69.     xchr[0120] = 'P';
  70.     xchr[0121] = 'Q';
  71.     xchr[0122] = 'R';
  72.     xchr[0123] = 'S';
  73.     xchr[0124] = 'T';
  74.     xchr[0125] = 'U';
  75.     xchr[0126] = 'V';
  76.     xchr[0127] = 'W';
  77.     xchr[0130] = 'X';
  78.     xchr[0131] = 'Y';
  79.     xchr[0132] = 'Z';
  80.     xchr[0133] = '[';
  81.     xchr[0134] = '\\';
  82.     xchr[0135] = ']';
  83.     xchr[0136] = '^';
  84.     xchr[0137] = '_';
  85.     xchr[0140] = '`';
  86.     xchr[0141] = 'a';
  87.     xchr[0142] = 'b';
  88.     xchr[0143] = 'c';
  89.     xchr[0144] = 'd';
  90.     xchr[0145] = 'e';
  91.     xchr[0146] = 'f';
  92.     xchr[0147] = 'g';
  93.     xchr[0150] = 'h';
  94.     xchr[0151] = 'i';
  95.     xchr[0152] = 'j';
  96.     xchr[0153] = 'k';
  97.     xchr[0154] = 'l';
  98.     xchr[0155] = 'm';
  99.     xchr[0156] = 'n';
  100.     xchr[0157] = 'o';
  101.     xchr[0160] = 'p';
  102.     xchr[0161] = 'q';
  103.     xchr[0162] = 'r';
  104.     xchr[0163] = 's';
  105.     xchr[0164] = 't';
  106.     xchr[0165] = 'u';
  107.     xchr[0166] = 'v';
  108.     xchr[0167] = 'w';
  109.     xchr[0170] = 'x';
  110.     xchr[0171] = 'y';
  111.     xchr[0172] = 'z';
  112.     xchr[0173] = '{';
  113.     xchr[0174] = '|';
  114.     xchr[0175] = '}';
  115.     xchr[0176] = '~';
  116.     xchr[0177] = xchr[000] = ' ';
  117.     for (i = 1; i <= 037; incr(i))
  118.         xchr[i] = ' ';
  119.     xchr[FORM_FEED] =  /*ACORN'\l'*/12;
  120.     xchr[TAB] = '\t';
  121.     xchr[NUL] = '\0';
  122.  
  123.     for (i = FIRST_TEXT_CHAR; i <= LAST_TEXT_CHAR; incr(i))
  124.         xord[xchr[i]] = INVALID_CODE;
  125.     
  126.     for (i = 1; i <= 0176; incr(i))
  127.         xord[xchr[i]] = i;
  128.     xord[xchr[NULL_CODE]] = NULL_CODE;
  129. }
  130.